Otherware/Otherware_1_SB_Development.iso/mac/hypercar/fun/eats.hqx/Restaurant Guide/background_4037.txt

Text File | 1992-11-05 | 12.5 KB | 625 lines

-- background: 4037 from stack: in
-- bmap block id: 2562
-- flags: 4000
-- background id: 0
-- name: Restaurant Background
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground

on newCard
  tabkey
  tabkey
end newCard



-- part 17 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=26 top=157 right=292 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=237 top=171 right=220 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Restaurant Name


-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=237 top=221 right=279 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=237 top=280 right=300 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=263 top=303 right=321 bottom=422
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Category


-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=299 right=324 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card of this background
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=299 right=324 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card of this background
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=467 top=299 right=326 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=231 top=299 right=328 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect zoom close
  go Home
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=68 top=294 right=328 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  CleanupScreen
  answer "Sort all cards of this stack according to:" with "Restaurant" or "Category" or "Cancel"
  if it is "Restaurant" then
    sort by field "Restaurant Name"
  else
    if it is "Category" then
      sort by field "Category"
    end if
  end if
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=30 top=299 right=333 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Cards
----- HyperTalk script -----
on mouseUp
  -- This script shows all cards except the help card.
  CleanupScreen
  repeat number of cards - 1
    go to next card of this background
    if the mouseClick then
      exit mouseUp
    end if
  end repeat
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=457 top=168 right=197 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 1017 / 1017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  CleanupScreen
  get the selection
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=106 top=304 right=331 bottom=138
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  visual effect venetian blinds
  go to card "Help Card"
end mouseUp


-- part 51 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=244 top=202 right=292 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: No restaurants
----- HyperTalk script -----
on mouseUp
  hide bkgnd field "No restaurants"
end mouseUp



-- part 52 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=76 top=21 right=95 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About this stack...
----- HyperTalk script -----
on mouseUp
  get the short name of me
  hide bkgnd field it
end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=58 top=84 right=121 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell Me About...
----- HyperTalk script -----
on mouseUp
  CleanupScreen
  put "This stack was created by Arie Covrigaru." && "November 8th, 1987." && "Ann Arbor Michigan." into bkgnd field "About this stack..."
  show bkgnd field "About this stack..."
end mouseUp


-- part 64 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=243 top=55 right=77 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: French
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=243 top=76 right=98 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Italian
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=243 top=97 right=119 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Korean
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=243 top=118 right=140 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Deli
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=243 top=139 right=161 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Seafood
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=324 top=48 right=70 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Chinese
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 70 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=324 top=69 right=91 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BarBQue
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=324 top=90 right=112 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vegetar.
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 72 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=324 top=111 right=133 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: German
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=324 top=132 right=154 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thai
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=409 top=41 right=63 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mexican
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=409 top=62 right=84 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: American
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=409 top=83 right=105 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Japanese
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 77 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=409 top=104 right=126 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Indian
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=409 top=125 right=147 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MidEast
----- HyperTalk script -----
on mouseUp
  get the short name of me
  SearchForCategory it
end mouseUp